object MAIN: TMAIN
  Left = 320
  Top = 198
  Width = 870
  Height = 640
  Caption = #1052#1086#1085#1080#1090#1086#1088#1080#1085#1075' '#1092#1080#1085#1072#1085#1089#1086#1074#1099#1093' '#1086#1087#1077#1088#1072#1094#1080#1081' '#1089#1080#1089#1090#1077#1084#1099' '#1043#1056#1040#1044
  Color = clBtnFace
  Constraints.MinHeight = 500
  Constraints.MinWidth = 700
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBServer: TLabel
    Left = 0
    Top = 0
    Width = 50
    Height = 13
    AutoSize = False
    Visible = False
  end
  object lblLang: TLabel
    Left = 12
    Top = 64
    Width = 30
    Height = 13
    Caption = 'lbllang'
    Visible = False
  end
  object DBPath: TLabel
    Left = 64
    Top = 116
    Width = 3
    Height = 13
    AutoSize = False
    Visible = False
  end
  object LgName: TLabel
    Left = 24
    Top = 120
    Width = 3
    Height = 13
    AutoSize = False
    Visible = False
  end
  object ServerPort: TLabel
    Left = 16
    Top = 64
    Width = 3
    Height = 13
    Visible = False
  end
  object Crypt: TLabel
    Left = 8
    Top = 24
    Width = 24
    Height = 13
    Caption = 'Crypt'
    Visible = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 575
    Width = 862
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 293
    Height = 575
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 0
      Top = 290
      Width = 293
      Height = 285
      Align = alClient
      Caption = ' '#1058#1072#1073#1083#1080#1095#1085#1099#1077' '#1076#1072#1085#1085#1099#1077' '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object DBGridEh1: TDBGridEh
        Left = 2
        Top = 15
        Width = 289
        Height = 268
        Align = alClient
        DataGrouping.GroupLevels = <>
        DataSource = dsc_Data
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        ParentFont = False
        PopupMenu = PopupMenu1
        RowDetailPanel.Color = clBtnFace
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DOCDATE'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'MS Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.Value = #1048#1090#1086#1075#1086':'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'TOTAL_SUMM'
            Footer.FieldName = 'TOTAL_SUMM'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'MS Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtSum
            Footers = <>
            Width = 89
          end
          item
            EditButtons = <>
            FieldName = 'CHARGE_SUMM'
            Footer.FieldName = 'CHARGE_SUMM'
            Footer.Font.Charset = DEFAULT_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -11
            Footer.Font.Name = 'MS Sans Serif'
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtSum
            Footers = <>
            Width = 77
          end>
        object RowDetailData: TRowDetailPanelControlEh
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 293
      Height = 290
      Align = alTop
      BevelOuter = bvNone
      Caption = 'Panel2'
      TabOrder = 0
      object GroupBox3: TGroupBox
        Left = 0
        Top = 73
        Width = 293
        Height = 69
        Align = alTop
        Caption = ' '#1044#1086#1087'. '#1087#1072#1088#1072#1084#1077#1090#1088#1099' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label1: TLabel
          Left = 23
          Top = 23
          Width = 58
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1086#1089#1090#1072#1074#1097#1080#1082
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 5
          Top = 43
          Width = 76
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1059#1087#1088'. '#1082#1086#1084#1087#1072#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dblc_Supplier: TDBLookupComboboxEh
          Left = 88
          Top = 21
          Width = 197
          Height = 19
          AlwaysShowBorder = True
          DropDownBox.Sizable = True
          DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1087#1086#1089#1090#1072#1074#1097#1080#1082#1072#1084
          DropDownBox.SpecRow.Value = '0'
          DropDownBox.SpecRow.Visible = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = dsc_Supp
          ParentFont = False
          TabOrder = 0
          Visible = True
          OnKeyPress = dblc_StreetsKeyPress
        end
        object dblc_Manag: TDBLookupComboboxEh
          Left = 88
          Top = 41
          Width = 197
          Height = 19
          AlwaysShowBorder = True
          DropDownBox.Sizable = True
          DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1059#1050
          DropDownBox.SpecRow.Value = '0'
          DropDownBox.SpecRow.Visible = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'NAME'
          ListSource = dsc_Manag
          ParentFont = False
          TabOrder = 1
          Visible = True
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 293
        Height = 73
        Align = alTop
        Caption = ' '#1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1075#1088#1072#1092#1080#1082#1072' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label2: TLabel
          Left = 35
          Top = 43
          Width = 47
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1077#1088#1080#1086#1076' '#1089
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 190
          Top = 43
          Width = 12
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1087#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 17
          Top = 23
          Width = 65
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1058#1080#1087' '#1075#1088#1072#1092#1080#1082#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object te_Bdate: TDBDateTimeEditEh
          Left = 88
          Top = 41
          Width = 77
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          TabOrder = 0
          Visible = True
        end
        object te_Edate: TDBDateTimeEditEh
          Left = 208
          Top = 41
          Width = 77
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Kind = dtkDateEh
          ParentFont = False
          TabOrder = 1
          Visible = True
        end
        object cbGraphType: TDBComboBoxEh
          Left = 88
          Top = 21
          Width = 197
          Height = 19
          AlwaysShowBorder = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          Items.Strings = (
            #1044#1080#1085#1072#1084#1080#1082#1072' '#1089#1073#1086#1088#1086#1074' '#1085#1072#1082#1086#1087#1080#1090#1077#1083#1100#1085#1086
            #1044#1080#1085#1072#1084#1080#1082#1072' '#1089#1073#1086#1088#1086#1074
            #1044#1080#1085#1072#1084#1080#1082#1072' '#1089#1072#1083#1100#1076#1086
            #1053#1072#1095#1080#1089#1083#1077#1085#1080#1103' '#1080' '#1089#1073#1086#1088#1099' '#1087#1086#1084#1077#1089#1103#1095#1085#1086)
          KeyItems.Strings = (
            '0'
            '1'
            '2'
            '3')
          ParentFont = False
          TabOrder = 2
          Visible = True
          OnChange = cbGraphTypeChange
          OnKeyPress = dblc_StreetsKeyPress
        end
      end
      object b_Apply: TButton
        Left = 12
        Top = 240
        Width = 265
        Height = 39
        Caption = #1055#1086#1089#1090#1088#1086#1080#1090#1100' '#1075#1088#1072#1092#1080#1082
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = b_ApplyClick
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 142
        Width = 293
        Height = 90
        Align = alTop
        Caption = ' '#1055#1086' '#1079#1076#1072#1085#1080#1102' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object Label4: TLabel
          Left = 27
          Top = 43
          Width = 54
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1059#1083#1080#1094#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 27
          Top = 63
          Width = 54
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1086#1084
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 27
          Top = 23
          Width = 54
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1053#1072#1089'. '#1087#1091#1085#1082#1090
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object dblc_Streets: TDBLookupComboboxEh
          Left = 88
          Top = 41
          Width = 197
          Height = 19
          AlwaysShowBorder = True
          DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1091#1083#1080#1094#1072#1084
          DropDownBox.SpecRow.Value = 0
          DropDownBox.SpecRow.Visible = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'CODE'
          ListField = 'STREET'
          ListSource = dscStreets
          ParentFont = False
          TabOrder = 1
          Visible = True
          OnChange = dblc_StreetsChange
          OnKeyPress = dblc_StreetsKeyPress
        end
        object dblc_Buildings: TDBLookupComboboxEh
          Left = 88
          Top = 61
          Width = 197
          Height = 19
          AlwaysShowBorder = True
          DropDownBox.SpecRow.Value = 'Null'
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'ID'
          ListField = 'HOUSENUM'
          ListSource = dscBuildings
          ParentFont = False
          TabOrder = 2
          Visible = True
        end
        object dblc_Towns: TDBLookupComboboxEh
          Left = 88
          Top = 21
          Width = 197
          Height = 19
          AlwaysShowBorder = True
          DropDownBox.SpecRow.CellsText = #1055#1086' '#1074#1089#1077#1084' '#1085#1072#1089'.'#1087#1091#1085#1082#1090#1072#1084
          DropDownBox.SpecRow.Value = 0
          DropDownBox.SpecRow.Visible = True
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          Flat = True
          KeyField = 'CODE'
          ListField = 'FULL_NAME'
          ListSource = dscTowns
          ParentFont = False
          TabOrder = 0
          Visible = True
          OnKeyPress = dblc_StreetsKeyPress
        end
      end
    end
  end
  object DBChart1: TDBChart
    Left = 293
    Top = 0
    Width = 569
    Height = 575
    AnimatedZoom = True
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #1053#1077#1090' '#1076#1072#1085#1085#1099#1093)
    BottomAxis.Increment = 1.000000000000000000
    BottomAxis.Title.Caption = #1044#1072#1090#1072
    LeftAxis.Title.Caption = #1057#1091#1084#1084#1072', '#1090#1099#1089'.'#1088#1091#1073
    Legend.Alignment = laBottom
    View3DOptions.Perspective = 25
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clBtnHighlight
    TabOrder = 2
    object Series1: TAreaSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = mt_Data
      SeriesColor = 4210816
      ShowInLegend = False
      Title = #1057#1091#1084#1084#1072
      XLabelsSource = 'DOCDATE'
      DrawArea = True
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      XValues.ValueSource = 'DOCDATE'
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'TOTAL_SUMM'
    end
    object Series2: TBarSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      DataSource = mt_Data
      SeriesColor = clYellow
      Title = #1055#1083#1072#1090#1077#1078#1080
      ValueFormat = '#,##0'
      XLabelsSource = 'DOCDATE'
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      XValues.ValueSource = 'DOCDATE'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'TOTAL_SUMM'
    end
    object Series3: TBarSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      DataSource = mt_Data
      SeriesColor = clRed
      Title = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1103
      ValueFormat = '#,##0'
      XLabelsSource = 'DOCDATE'
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      XValues.ValueSource = 'DOCDATE'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
      YValues.ValueSource = 'CHARGE_SUMM'
    end
  end
  object dbMain: TpFIBDatabase
    DBName = 'localhost/41760:gtc'
    DBParams.Strings = (
      'password=plasmorf'
      'user_name=plasmorf'
      'lc_ctype=WIN1251'
      'sql_role_name=GRAD_ADMIN')
    DefaultTransaction = trMain
    SQLDialect = 3
    Timeout = 0
    DesignDBOptions = [ddoIsDefaultDatabase]
    AliasName = 'grad_test'
    WaitForRestoreConnect = 0
    AfterConnect = dbMainAfterConnect
    Left = 476
    Top = 204
  end
  object ds_Data: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    DOCDATE,'
      '    TOTAL_SUMM,'
      '    CHARGE_SUMM'
      'FROM'
      '    REP_PAYS_SUMM_GRAF_2(:PSUPPLIER,'
      '    :PMANAG_ID,'
      '    :PBUILD_ID,'
      '    :PBDATE,'
      '    :PEDATE,'
      '    :PGRAPH_TYPE,'
      '    :PTOWN_ID,'
      '    :PSTREET_ID) ')
    AllowedUpdateKinds = []
    Transaction = trMain
    Database = dbMain
    Left = 582
    Top = 206
    object ds_DataDOCDATE: TFIBDateField
      FieldName = 'DOCDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_DataTOTAL_SUMM: TFIBBCDField
      FieldName = 'TOTAL_SUMM'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_DataCHARGE_SUMM: TFIBBCDField
      FieldName = 'CHARGE_SUMM'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
  end
  object trMain: TpFIBTransaction
    DefaultDatabase = dbMain
    TimeoutAction = TARollback
    TRParams.Strings = (
      'read'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 530
    Top = 204
  end
  object ds_Supp: TpFIBDataSet
    SelectSQL.Strings = (
      'select uo.id, uo.name'
      'from userorg uo'
      
        'where exists(select 1 from dogovors d where d.supplier_id = uo.i' +
        'd)'
      'order by 2')
    Transaction = trList
    Database = dbMain
    Left = 582
    Top = 244
    object ds_SuppID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_SuppNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_Supp: TDataSource
    DataSet = ds_Supp
    Left = 614
    Top = 244
  end
  object dsc_Data: TDataSource
    DataSet = mt_Data
    Left = 614
    Top = 206
  end
  object MainMenu1: TMainMenu
    Left = 368
    Top = 16
    object N1: TMenuItem
      Caption = #1041#1072#1079#1072' '#1076#1072#1085#1085#1099#1093
      object N2: TMenuItem
        Action = a_Connect
      end
      object N3: TMenuItem
        Action = a_Disconnect
      end
    end
    object N9: TMenuItem
      Caption = #1058#1072#1073#1083#1080#1094#1072
      object MSExcel1: TMenuItem
        Action = aExportExcel
      end
    end
    object N4: TMenuItem
      Caption = #1043#1088#1072#1092#1080#1082
      object N6: TMenuItem
        Action = a_Print
      end
      object N5: TMenuItem
        Action = a_Save
      end
      object N7: TMenuItem
        Action = a_Buffer
      end
    end
    object iAbout: TMenuItem
      Caption = #1054' '#1087#1088#1086#1075#1088#1072#1084#1084#1077
      OnClick = iAboutClick
    end
  end
  object ActionList1: TActionList
    Left = 404
    Top = 15
    object a_Connect: TAction
      Caption = #1057#1086#1077#1076#1080#1085#1080#1090#1100#1089#1103
      OnExecute = a_ConnectExecute
    end
    object a_Disconnect: TAction
      Caption = #1054#1090#1089#1086#1077#1076#1080#1085#1080#1090#1100#1089#1103
      Enabled = False
      OnExecute = a_DisconnectExecute
    end
    object a_Print: TAction
      Caption = #1055#1077#1095#1072#1090#1100
      OnExecute = a_PrintExecute
    end
    object a_Save: TAction
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      OnExecute = a_SaveExecute
    end
    object a_Buffer: TAction
      Caption = #1042' '#1073#1091#1092#1077#1088' '#1086#1073#1084#1077#1085#1072
      OnExecute = a_BufferExecute
    end
    object aExportExcel: TAction
      Caption = #1069#1082#1089#1087#1086#1088#1090' '#1074' MSExcel'
      Hint = #1069#1082#1089#1087#1086#1088#1090' '#1074' MSExcel'
      OnExecute = aExportExcelExecute
    end
  end
  object PropStorage: TPropStorageEh
    Section = 'MainWindow'
    StorageManager = IniPropStorage
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      'Crypt.<P>.Caption'
      'DBPath.<P>.Caption'
      'DBServer.<P>.Caption'
      'LgName.<P>.Caption'
      'ServerPort.<P>.Caption')
    Left = 714
    Top = 132
  end
  object ds_Manag: TpFIBDataSet
    SelectSQL.Strings = (
      'select uo.id, uo.name'
      'from userorg uo'
      'where exists(select 1 from dogovors d where d.manag_id = uo.id)'
      'order by 2')
    Transaction = trList
    Database = dbMain
    Left = 582
    Top = 278
    object FIBIntegerField1: TFIBIntegerField
      FieldName = 'ID'
    end
    object FIBStringField1: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_Manag: TDataSource
    DataSet = ds_Manag
    Left = 614
    Top = 278
  end
  object mt_Data: TMemTableEh
    AutoCalcFields = False
    FetchAllOnOpen = True
    Params = <>
    DataDriver = ddmt_Data
    Left = 426
    Top = 212
    object mt_DataDOCDATE: TDateField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'DOCDATE'
    end
    object mt_DataTOTAL_SUMM: TBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1087#1083#1072#1090#1077#1078#1077#1081
      FieldName = 'TOTAL_SUMM'
      Size = 0
    end
    object mt_DataCHARGE_SUMM: TBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1081' '#1090#1099#1089'.'#1088#1091#1073
      FieldName = 'CHARGE_SUMM'
      Size = 0
    end
  end
  object ddmt_Data: TDataSetDriverEh
    ProviderDataSet = ds_Data
    Left = 388
    Top = 210
  end
  object IniPropStorage: TIniPropStorageManEh
    IniFileName = 'paymonitor.ini'
    Left = 684
    Top = 132
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'bmp'
    Filter = 'bmp'
    Left = 362
    Top = 210
  end
  object dsBuildings: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      
        '    cast(HOUSE || coalesce('#39#1082#1086#1088#1087'.'#39'||CORPS,'#39#39') as varchar(20)) as' +
        ' HOUSENUM   '
      'FROM'
      '    BUILDINGS '
      'where STREET_ID = :STREET_ID')
    Transaction = trList
    Database = dbMain
    Left = 582
    Top = 346
  end
  object dscBuildings: TDataSource
    DataSet = dsBuildings
    Left = 614
    Top = 346
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 495
    Top = 82
  end
  object trList: TpFIBTransaction
    DefaultDatabase = dbMain
    TimeoutAction = TARollback
    TRParams.Strings = (
      'read'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 530
    Top = 244
  end
  object XLSExportFile: TXLSExportFile
    Left = 138
    Top = 382
  end
  object XLSExportDBGridEh: TXLSExportDBGridEh
    XLSExportFile = XLSExportFile
    DBGridEh = DBGridEh1
    Options = []
    Left = 180
    Top = 384
  end
  object PopupMenu1: TPopupMenu
    Left = 64
    Top = 412
    object N8: TMenuItem
      Action = aExportExcel
    end
  end
  object SaveXLSDialog: TSaveDialog
    DefaultExt = 'xls'
    Filter = #1060#1072#1081#1083#1099' Excel (*.xls)|*.xls'
    Title = #1042#1099#1073#1086#1088' '#1092#1072#1081#1083#1072' '#1076#1083#1103' '#1074#1099#1075#1088#1091#1079#1082#1080' '#1076#1072#1085#1085#1099#1093' '#1080#1079' '#1090#1072#1073#1083#1080#1094#1099
    Left = 220
    Top = 384
  end
  object AppUpdater: TAppUpdater
    Active = False
    Module = 'MONITOR'
    Database = dbMain
    Logged = False
    LogFileName = 'monitor_update'
    Left = 441
    Top = 80
  end
  object Zebedee: TZebedee
    Active = False
    ZebedeeDLL = 'zsasl.dll'
    CompressLevel = lvl2
    FirebirdPort = 3050
    LocalPort = 0
    ServerPort = 11965
    Left = 485
    Top = 144
  end
  object dsStreets: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    CODE,'
      '    STREET'
      'FROM'
      '    RSTREETS '
      'where town_id = :code'
      'order by STREET')
    Transaction = trList
    Database = dbMain
    DataSource = dscTowns
    Left = 582
    Top = 312
    WaitEndMasterScroll = True
    dcForceOpen = True
  end
  object dscStreets: TDataSource
    DataSet = dsStreets
    Left = 614
    Top = 311
  end
  object dsTowns: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    code,'
      '    FULL_NAME'
      'FROM'
      '    PAS_RTOWN r'
      'where local = 1'
      '  and exists(select 1 from rstreets s where s.town_id = r.code)'
      'order by 2')
    Transaction = trList
    Database = dbMain
    Left = 582
    Top = 384
    object dsTownsFULL_NAME: TFIBStringField
      FieldName = 'FULL_NAME'
      Size = 123
      EmptyStrToNull = True
    end
    object dsTownsCODE: TFIBIntegerField
      FieldName = 'CODE'
    end
  end
  object dscTowns: TDataSource
    DataSet = dsTowns
    Left = 614
    Top = 383
  end
end
